home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / rbootp55.zip / REBOOT.PAS < prev   
Pascal/Delphi Source File  |  1990-05-14  |  817b  |  33 lines
  1. program reboot;
  2.  
  3.    { Make sure that DOS wrote everything out }
  4. PROCEDURE Flush_DOS_Buffers;
  5. begin
  6.    Inline(   $B8/$40/$00           {MOV AX,0040   }
  7.             /$8E/$D8               {MOV DS,AX     }
  8.             /$89/$C3               {MOV BX,AX     }
  9.             /$B8/$34/$12           {MOV AX,1234   }
  10.             /$A3/$72/$00           {MOV [0072],AX }
  11.             /$EA/$00/$00/$FF/$FF   {JMP FFFF:0000 }
  12.          );
  13.  
  14. END;  { Procedure Boot_PC }
  15.  
  16.  
  17.  
  18.  
  19. {
  20.    Flush DOS' internal file buffers to insure that all data has been
  21.    physically written to disk.
  22. }
  23.  
  24. BEGIN
  25.  
  26.     flush_dos_buffers;
  27.     INLINE
  28.         ($B4/$0D/             {     MOV  AH,0DH      ;function to flush }
  29.         $CD/$21);             {     INT  21H         ;perform it        }
  30.  
  31. END.  { Procedure Flush_DOS_Buffers }
  32.  
  33.